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ALL RIGHTS RESERVED. 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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event flag after the stall, or we wait forever on the flag. 


v03-017 $HZ0008 _ Stephen H. Zalewski 5-Dec-1983 
If we stall sett ine for a writeback to occur, set the 
event flag after the stall has completed, or we will 
wait forever on the event flag to be set. 


v03-016 KPL0001 Peter Lieberwirth 28-0c t-1983 

Fix prenee with BI Journes ing. Before-image copy of 
the buffer was only made if the buffer was read in with 
intent to write. However, if the buffer was cached for 
read, and is founc in the cache to write out, no before 
image copy was made. 


This fix unconditionally copies the before-image of the 
bucket to the beTores image uffer - read or write. While 
Tl, it should be changed for FT2 


this is good enough for 
is to be 


such that the copy is only made when the bucke 


iu 8 p++ 

0 : Facility: rms32 
$6 13 . 
8 ¢ ; Abstract: 
000 4: This module provides a block cache and access control 
Boo 5 ; to the buckets of the relative and indexed file organizations 
$909 5 : Environment: 
444 3 5 VAX/VMS 
8090 40 : Author: E.H. Marison 15-SEP-1977 
0000 41 ; 
0000 *g ; Modified By: 
0000 43 ; 
0000 44; V03-023 JEJ0044 J E Johnson 21-Jun-1984 
4 :? ; Tweak the instructions a little for a performance boost. 
0000 47: v03-022 $HZ0011 Stephen H. Zalewski, 30-Apr-1984 
0000 48 ; If we stall in CACHE, do not set the event flag unless it 
4344 $3 3 is nonzero. In async 1/0 case it will be zero. 
0000 «51: v03-021 JEJ0007 J E Johnson 16-Mar-1984 
0000 26 ; Add global buffer quota accounting to Limit the number of 
44 27 3 system-wide locks taken out by the users. 
0000 «55 v03-020 $HZ0010 Stephen H. Zalewski, | 13-Mar-1984 
0000 56; Make sure we are record pecking before we try to scan 
0000 a 3 the BLB List in RMSFREE LCL. Thus, in the case of 
0000 58 ; the local buffer count being wrong, we will not 
st 2B 3 try to scan the BLB list to try and free up a BDB. 
0000 «61: V03-019 ywT0160 Jim Teague 29-F eb-1984 
i464 6¢ 3 Remove call to RMSDEALLEFN. 
0000 64 ; v03-018 SHZ0009 Stephen H. Zalewski 26-Jan-1984 
0000 65 ; If we must stall waiting for a writeback to occur on 
0000 66 ; a blb we want to throw out of cache, we must set the 


SOOOoCoOoOoOoOoOoOooOooOoooo 
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SOooooooooooooooooo 
SOOQOOOCOCoooooooooooo 
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dirtied. The CPU porvermense consequences of failing to 
do so would be high. 


v03-015 $HZ20007 Stephen H. Zalewski 17-0¢ t-1983 
After finding or obtaining a buffer in a global buffer 
cache, do not lower lock on section until the user count 
in the GBD has been incremented. This prevents a window 
where 2 accessors point to the same GBD, but each thinks it 
contains a different VBN. 


After finding a buffer to throw out of a global buffer cache, 
mark the sequence number invalid to prevent a second process 
from thinking the buffer valid while first process does the io. 


When forcing the writeback of a BLB, make sure the IFAB is 
not one from a SOPEN command. If it is, do not attempt to 
write the BLB back. 


i 
i ; 
9; 
0; 

3 

$8 ; 

33 ; 

if 

99 ; v03-014 DASO001 David Solomon 18-0 t-1983 

130 : Restore lost BI journaling code. 
0000 198 : v03-013 $HZ0006 Stephen H. Zalewski 28-Jul-1983 
si 4 + 3 Modify to allow cluster global buffers. 
0000 105: v03-012 $hZ0005 Stephen H. Zalewski 17-Apr-1983 
+44 138 ; Add cluster failover capability for bucket Locking. 
0000 108: vO3-011 TMKO0O1 Todd M. Katz 02-Apr-1983 
0000 109; Add suppor’ for BI Journalling of ISAM files. Whenever, an 
0000 110; ISAM file is marked for BI Journalling, and an EXclusive lock 
0000 111; has been requested on a bucket, then move the contents of the 
0000 1 3 bucket (before they are potentially modified) into the buffer 
0000 113; controlled by the B1 BDB associated with the BDB that is about 
9000 114; to be returned. Also modify the routines within this module 
0000 115; so that the cache flags within R3 are not destroyed. This is 
0000 116; because they will be needed to decide whether to save the 
4 a4 ; bucket or not. 
0000 119; v03-010 $HZ0004 Stephan H. Zalewski, 11-Feb-1983 
0000 120; Update the VBN sequence number of a buffer if the NOREAD 
44 \¢) § flag is set in the BLB. 
0000 123; V03-009 KBT0446 Keith 8. Thompson 5-Dec-1982 
si 4 Se 5 Fix a case where the gbsb lock was not being released 
0000 126: v03-008 S$HZ0003 Stephen 4. Zalewski, 22-Sep-1982 13:49 
0000 127 ; Take EXCLUSIVE lock on Global buffer cache when searching 
464 128 ; for a buffer, or updating the position of a buffer in the 
8000 : 4 : cache. 
0000 131: v03-007 $HZ0002 Stephen H. Zalewski,  6-Sep-1982 20:18 
0000 13 ; Use the interlocked self-relative queue instructions when 
it ! Z 5 placing and removing GBDs. 
$009 135 : v03-006 KkBT0200 Keith B. Thompson 23-Aug-1982 
4 ! $ 5 Reorganize psects 
0000 138 : v03-005 $HZ0001 Stephen H. Zalewski, 29-Jun-1982 15:38 
$000 140 : 
0000 141 ; 
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v03-004 ¢DS0028 C Saether 13-Apr-1982 
Modify lock bkt routine to attempt to toss something 
out of the Tocal cache when the enq results in 
either an exenqim or nolockid error. Hopefully this 
frees up a lock so the operation can continue. 


v03-003 ¢d$0027 C Saether 30-Mar-1982 
Correct problem when LOCK, NOREAD, NOBUFFER is 
specified for a bucket which is already accessed 
with a buffer. This was causing the new flags to 
overwrite those from the initial access and not 
store the value block on release. 


Set default error in R1 before call to MAPERR. 
Increment use count in GBD only after GBPB accessed. 


ooo 
Ooo 


ss 
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Check if BDB was present before looking at it. 


v03-002 CdS0026 C Saether 22-Mar-1982 
Modify SCAN_GBL routine to avoid end test and speed 
up by looping in Line. 


v03-001 cdS0025 C Saether 11-Mar-1982 
Count hits and misses for global buffers. 
Fix incorrect register use in SCAN_LOCKS checking 


for GBPB. 

26-F eb-1982 
Don't bother trying to get read locks on buckets in 
a compatible mode. It causes conversion deadlock 
problems when other streams (processes) are attempting 
to modify the same bucket simultaneously. s is 
the same problem only persteniy corrected in V02-036. 
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00 Also have LOCK_BKT routine call RMSMAPERR to map 
0000 enqueue failures to RMS errors if appropriate. 
0000 : 16-Feb-1982 
0000 Changes to allow modification of global buffers. 
0000 FREE LCL and GET_LCL_BUFF become RMSFREE_LCL and 
0000 RMSGET_LCL_BUFF. 
0000 SCAN_LOCKS changed to not return GBPB address unless 
0000 caller already owns it (don't want more than one 
0000 accessor on a GBPB at once). 


) 
Don't ry to use global buffers if stream didn't 
connect for them. 
7-F eb-1982 


Shorten scan_local_cache to scan_\cl_cache. 
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6° 137 -SBTTL DECLARATIONS 
195 ; | 
138 : Include Files: 
197 ; 
88 198 
0 199 SBDBDEF 3; bucket descriptor | blocks 
00 00 KTDEF :; bucket pada sh fee 
00 01 SBLBDEF ; bucket lock b 
B60 ¢ SCSHDEF : rm$cache flag a Nettiens 
0000 0 SENQDEF ; eng sys service definitions 
8008 8 SGBDDEF ; global buffer descriptor defs 
0 5 SGBHDEF : global buffer header 
0000 06 SGBPBDEF 3 giopet buffer pelnter block defs 
0000 07 IFBDEF ; ifab defs 
0000 08 SIMPDEF : jeeure gree definitions 
0000 09 SIRBDEF : irab 
0000 10 SLCKDEF 3 lock manager flegs. constant defs 
0000 11 SPIODEF : process i/o defini Stone 
0000 \¢ SRABDEF 3; record access block 
0000 1 SRIRDEF ; RMS Journalling Record definitions 
0000 14 SRLSDEF :; rm$release flags 
0000 15 SRMSDEF 3: rms error code defs 
0000 1g SSF SBDEF 3 shared file lock block defs 
0000 1 SDEF ; System service error codes 
0000 18 
0000 19 ; 
0000 20 ; Macros: 
0000 $) : 
0000 § 3 
0000 23 ; Equated Symbols: 
0000 398 
0000000F 9000 326 CSH_MASK_ALL = CSHSM_LOCK! CSHSM_NOWAIT ! CSHSM_NOREAD ! CSHSM_NOBUF FER 
0000 228 : 
0000 $$) : ; Own Storage: 
0000 os 
0000 231 
| 
} 


exenqim the enq Limit for this process was exceeded 

f while attempting to lock a bucket. . 
various errors writing a deferred write buffer or reading 
in the new buffer. 
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p 2 ? ~SBTTL RMSCACHE ROUTINE | 
5 34+ | 
0 ; ; RMSCACHE = access and read bucket if necessary 
00 9 : 1. obtains access to requested block/bucket and waits for the access | 
4 re : unless csh$v_nowait is set in the control flags. 
0000 g : 2. obtains a buffer for the block unless csh$v_nobuffer 
4 re : is set in the control flags. 
$006 45; 3. if there is a buffer read the block into it if required, and the 
8000 rt ; csh$v_noread bit is off in the control flags. 
4 $8 ; 4. waits for io completion 
$000 50 ; 5. if the csh$v_lock bit is set in the flags then exclusive access to the 
0000 51; biock is obtained. 
0000 26 F 
0000 53; Calling sequence: 
0000 54; 
0000 23 3 eSBW RMSCACHE 
0000 56 ; 
0000 57 ; Input Parameters: 
0000 58 ;: 
0000 59 ; rii impure area address 
0000 60 ; r10 ifab address 
0000 61; r9 irab/ifab address 
0000 6¢ 3 r8 rab/fab address 
0000 65 ; r3 cache control vlogs 
0000 64; r2 transfer/buffer size in bytes 
0000 65 ; ri requested vbn 
0000 66 ; 
0000 $oe ; Output Parameters: 
0000 68 ; 
0000 69 ; r0 internal rms status code 
0000 70 ; r4 bdb address 
0000 “1 3 r5 buffer address unless a nobuffer call 
0000 ie : n which case r5 is destroyed 
si a : ri,r2,r3,ap destroyed 
0000 o : tee bdb and buffer not accessed on errors 
$000 4) : Completion Codes: 
0000 78 ; 
83 3 4s : standard internal rms, including: 
0000 1; suc normal success 
0000 Ht : rlk biock was accessed or locked and nowait 
0000 3 dme could not get a 
0000 84; 
00 5 3 
0 6; 
at 
00 5 i 
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Side Effects: 
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May have switched to running at ast level if not already there as 
a result of nye for i/o to complete or waiting for a 
resource to be granted. 
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RMSCACHE ROUTINE BreEEn bbs forltso2 LAMSVERCTAMOCALHE AR: 1 ve 
TRACE 
00000000' : 16 j38. RMSCACH_IN 
00000000‘ EF i JSB RMSCACH_OUT 
0 RSB 
BUFF _ONLY_BR: 
O1A8)—ss 31 BRw BUFF _ONLY ; No lock = only want scratch buffer. 
RMSCACHE: : 
01 NOP 
01 NOP 
51 dS CACHE: TSTL R1 : Is this VBN 0 call? 
F713 BEQL BUFF _ONLY_BR ; EQL then only want buffer, no lock. 
5253 03 €1 BBC ob na: NOBUFFER, R3,- ; Branch if buffer is desired. 
1453 02 €1 BBC #CSHSV_NOREAD, R3, 17$ ; Expectation is that NOREAD is set. 


If here, this is a nobuffer request, mega ing that a lock only on the 
bucket is desired. This type of lock will be requested to interlock 
an extend type operation with other processes sharing the file. If 
the file is open for exclusive access, nothing further is required. 


Sete Ge Oe te te 


17 6A 33 1 10$: BBC #IFBSV_NORECLK, (R10), 20$ ; Branch if locking req'd. 
30A 0 BSBW SCAN_LUL_CACHE : Is it already in cache? 
54 55 00 MOVL R5, R ; See if it is. 
06 13 BEQL 15$ ; Nope. Just return. 
Oc AS) «=601Ss«iBD MOVW #1, BDBSW_USERS(R4) ; Make it look accessed. 
15$: RMSSUC 3; Success. 
05 RSB ; Return. 
17$ RMSPBUG FTLS_NORDNOTSET ; NOREAD is not set and no buff wanted. 
0198 30 20$: BSBW SCAN_LOCKS ; See if lock is already held. 
15 50 +~€E9 BLBC RO, 30$ ; Branch if lock not found. 
55 05 TSTL RS : Is there & BDB also? 
eB 13 BEQL 15$ ; Already have lock. ALL done then. 
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Note that i kading a buffer in the cache on a nobuffer call and simply 
accessing the buffer along with the lock violates the assumptions about 
the worst case condition where two buffers plus a lock only on another 
bucket are required. However, given the current use of the nobuffer call 
for vbn 1, and the sequence of Operations used, it would not be possible 
for vbn 1 to be in the cache at the time of the nobuffer call because 
the two buffers would be occupied by the bucket being split and the area 
descriptor already. With two streams, it is difficult to construct a 
sequence of events where block 1 could happen to be in the cache at the 
time two streams were extending seperate areas during separate splits 
such that the problem would actually arise. 


WN OOONAUN EWN 9 ONAN OOD NAME WN S(O ODNOAUE WN OOONOUSWN—O0OOn ZZ 


Bete Se Se Se Se See Sete Sete Fete 


SOOOCOOCOSOOOOOSOOOSOOOOOOOOOSOSOOSOOOSOSOOOOSOOSOOOOOOOOOOOOOOOOOOOOO 
SPUD BS BBB EEE EFI WIWIWW NANI GIN PIPINIPININININID 2 4 OP OP  MOOOOOOOOCOCOONONO 


WAAAAAWN AANA AANA AAI AANA AAI AA AANA AIAN ANIA AIA AIA AAW NIAAA AAAI nnn 
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The Logic which initializes an index will call CACHE for a lock, nobuffer 


| 
; Patch this for tracing. 
| 
| 
| 
| 
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v04-000 RMSCACHE ROUTINE SEP=1984 16 if 33 RMS ..SRCIRMOCACHE .MAR; 1 . (3) | 
Se 54 ; on VBN 1 when VBN 1 is already accessed with a buffer. In that case, 
4 35 ; the owner will be the current stream. The address of the BDB (as opposed 
04 2$ ; to the BLB) must be returned in that case because the rq@utine compares 
bee 57 ; the original BDB address from the first call (saved in IRB$L_LOCK_BDB) 
004 28 3 with the return from this call to determine whether to release the lock. 
t2 59 ; Pretty tacky, but that's the way it is. No checks are made to determine 
4 60 ; if the bucket is LOCKed when one is found, as it is not believed any routines 
Baek $3 3; would do that and follow it with a LOCK, NOBUFFER call. 
04 63° 
59 10 A4 01 boe8 64 CMPL  memanietet Ro ; This stream already have it accessed? 
9 i 049 65 BNEQ $ ; NEQ, then qo access it normally. 
54 5 D 048 26 MOVL RS, R4 ; Get BDB addr into R4. 
Fe 11 04 6 BRB ; And exit with success. 
53 C gf 005 68 25$ BICL2 #CSHSM NOBUF FER! CSHSM_NOREAD, R3 ; There already is a buffer. 
0089 1 9033 $° LOCK_IT ; Raise mode if req'd. 
O1EC 30 0056 35 30$: BSBW GET BLB ; Get a BLB for this lock. 
0331 30 0059 es BSBW LOCR_BkT 3 Go lock it. 
05 005C 7 RSB 3; Return. 
o08> 378 
0050 376 ; Got the bucket locked, but no buffer with it. 
a 
0050 303 NEED_BUFFONLY: 
0084 CA B87 005D 80 DECW IFBSW_AVLCL(R10) ; Decrement available count. 
6C 18 0061 33) BGEQ GET _BOFF ; Enough buffers go et BDB. 
0200 30 0063 82 BSBW © RMSFREE_LCL : Free up a local buffer. 
66 50 E8 0066 38 BLBS RO, GET BUFF ; Branch and go use it on success. 
0084 CA B6 0069 384 INCW IFBSW_AVLCL(R10) ; Restore count. ; 
05 006D 385 RSB 3; Return with error in RO. 
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RMS ..SRCIRMOCACHE .MAR; 1 
NEED BUFFER: 
BBS #IFBSV_NORECLK, (R10),- ; Branch if no Locking. 
NOLOCKING 


6A 33 €0 


Locking is being done. Scan List of buffer lock blocks (BLB’s) to 
determine if bucket already has lock. Normally locating a bucket in 
the BLB List means that either a NL or PW lock is held on a buffer 
currently present in the local cache. 
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uffer on 


Under some conditions a request is made for a lock wi b a 
F ag. in which 


t 
bucket which was previously locked with the NOBUFFER f 
case a lock will be found with no BDB. 


Lastly, a BOB for the desired bucket may be found, but no BLB. 
This will occur when multi-streaming and another stream has the 
desired bucket accessed. Only a BLB must be acquired in this case. 


h 
l 


CHECK_LOCKS: 
BSBW = SCAN_LOCKS 
BLBC RD. NEED_BLB 


BEQL NEED_BUFFONLY 
CHKWBK 


; See if lock already held. 
; No = go to get BLB. 

; Was there a BDB also with the BLB? 
; Go get a buffer for the BLB. 

; Have BDB, BLB, so access them. 


IFB$L_GBH_PTR(R10) ; Global buffer cache present? 
LOCAL ; EQL then there is none. 
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Global buffer cache is present. If a BDB has already been found, though, 
always use it. It didn’t have a BLB if here, meaning another stream 
must currently have it accessed, therefore it has a much better chance 
of being valid. 
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TSTL R5 ; Is BDB already present? 
BNEG LOCAL ; NEQ then use it. 


ASSUME IRBS$B B prea ate 
ASSUME <IRBST 

ASSUME <IFBSC 1 

BLBS IFBS 
BBC #IRB 


mui 
NM 
-—o 
nu 
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R9), LOCAL ; Use local if ifab operation. 
BuFF, (R9), LOCAL ; Use local if stream did not 
; want global buffs when connecting. 


Search global cache, if failure the gbsb lock is not released since it may 
be needed shortly in find_free_gbl. If success the lock is released. 


03C6 
OA 50 


mu 
oo 


BSBW SCAN_GBL ; Search gyebet cache ; 
BLBS RO, TOS : Branch if got a match and use it. 
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: Did not find the desired bucket in the global cache. 
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you+000 AMSEACHE ROUTINE $7365 =19 4 98:39:83 RMS ..SRCIRMOCACHE .MAR; 1 . ( 
97 ree ; If a lock is not requested, attempt to get a giebet uffer and use it. 
97 445 ; If a lock is requested, use a local buffer. The betief is that if 
97 as ; the bucket wasn't already in the global cache, this must be a new 
97 447 ; insert, therefore the chance of another process potentially having 
97 us ; an interest in it is very low. In addition, if deferred write is 
97 449 ; enabled, modified global buffers must be copied to a local buffer 
97 450 ; when they are released. The extra cpu overhead to do that would 
97 451 ; outweigh the rare instances where an i/o would be saved because 
bas 228 ; another process was interested in the same bucket. 
097 454 
O097 $2? ASSUME CSHS$V_LOCK EQ 0 
07 5 ? 097 439 BLBC R3, 10% ; Br to use gbl if not Locking. 
FF63° 50 aRen 458 BSBW RMSLOWER_GBS_LOCK ; Release lock on ay (taken in scan_gbl) 
5 D4 009D 459 CLRL RS ; Note that no buffer is present. 
OF 11 QO9F 460 BRB LOCAL ; Go use local buffer. 
OA1 461 
OA1 $66 ; 
Q0A1 465 ; We wish to use global buffers. RO contains the status from the global 
QOA1 464 ; cache scan above. Whether or not the requested bucket was found, we 
QOA1 465 ; will need a bib. In the rare case where a global buffer cannot be freed 
OOA1 466 ; when the desired bucket was not located, reset the owner and vbn fields of 
Spat roth ; the blb just obtained, and drop through to use a local buffer instead. 
00A1 14 
q"3) 30 OO0A1 470 10$: BSBW GET_BLB ; Get a free BLB for the lock. 
33 50 €8 OOAS 471 BLBS RO, GOT_BUFF ; Branch if match found in gbl cache - 
QOA7 $76 ; RO is the result from SCAN GBL here. 
0453 30 O0OA7 47 BSBW FIND FREE _GBL ; Attempt to find a free global buffer. 
29 50 €8 OOAA 474 BLBS RO, NEED _READ : Br to force read if one found. 
OOAD 475 ASSUME <BLBSL_OQNER + 4> EQ BLBS$L_VBN 
10 AS S7C i $76 CLRQ BLBSL_OWNER(R4) ; Free up BLB. Drop thru to use local. 
it 478 ; 
008 479 ; A local buffer is to be used. 
00B0 480 ; if R5 is non-zero, it contains the address of the BDB for the requested 
boeb $3 3 bucket even though a BLB must be obtained. 
08 4 § 3 
00B0 48 
boop 484 LOCAL 
0084 CA B67 008 rH DECW {fgSe_AUL GL Ct) 3; Decrement available count. 
12 18 00B4 4 $ BGEQ 0$ ; Got enough - go get BLB. ; 
0084 CA 88 44 4 INCW IFBSW_AVLCL(R10) ; Put count back - will go round again. 
9106 A 488 §S Bld RMSFREE LCL ; Free up a buffer. 
3 $y E9 O00BD 489 BLBC RO, EXBR ; Exit on error. 
6A 1 €0 pce 490 BBS #IFBSV_MSE, (R10),- s if pa tisserqenens. need to scan 
AE 0C 491 CHECK_ ocKs : locks again (may have changed). 
0084 CA Hf 0C4 $36 DECW IFBSW_AVLCL(R10) ; Dec count. One is available now. 
17A 2 0C8 493 10$: BSBW GET_BCB ; Get a free BLB. 
_ ee. 0CB 494 TSTL : Is there a BDB already? 
0B 12 O0CD 495 BNEQ GOT_BUF F ; NEQ already have one. 
OCF 496 GET_BUFF : 
027 38 CF 49 BSBW RMSGET_LCL_ BUFF ; Get a free BDB. 
6A 3 E b0e $38 BBS #IFBSV-NORECLK, (R10),- ; Branch if not Locking. 
1D 0D 49 READ_NOLOCKING 
0D6 500 NEED_READ: 
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10 88 BISB2 #BLBSM_IOLOCK,- ; Know that I/0 will be req'd. 
OA AG as nat BLB$B_BLBFLGS(R4) 
Oc AS) =655~—s«éOO MOVL R5, BLBSL_BDB_ADDR(R4) ; Store BDB address in BLB. 
ee BRB Lotk_IT : Go to lock code. 
: Branch here when using local buffers in exclusive mode, ji.e., no locking 
; is being performed. 
NOLOCKING: 
O2se 30 BSBW SCAN_LCL_CACHE ; Look in local cache. 
540C<‘<‘Q 08 MOVL RS, R ; Anticipate suc - load R4 with BDB. 
93 1 BNEQ 10 ; NEQ we have a buffer. 
FF72 = 31 BRW NEED_BUF FONLY ; Need to go get a buffer. 


; We have found the desired bucket in the local cache when no locking 
2 ay Loemres. The bucket must be valid, therefore simply return 
; WwW success. 


OOOQOCQOOCoOoOQCooCoCOooOOoOoOCoOOCOOoOoOOoOOoOoOoO 
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DPVPVIVIVIVIV IV IVLUSV IV SUSUSUSVSIUSUSUSVSUS USS USVI VS US UIUOSVOS VS US UOSIOSIOSIOST 
BUS WN 9 CONAUEWN CO OONAULS WN OUVONOUSWN— 2Z 


108: RMSSUC ; Set success. 
OC AS BB INCW BOBSW_USERS(R4) ; Note in use. 
6F 11 BRB SETRS ; Branch to set R5 and exit. 
OOF ; : 
44 ; Branch here after getting buffer when no locking. 
OOF ‘ 
OOF READ_NOLOCKING: 
OC AS) «B6 OCOOOF INCW BDBSW_USERS(R5) ; Note in use. 
| ae | i BRB READ_BKT : Go read bucket - no lock req'd. 
009F 31 OOF EXBR: BRW EXIT 
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you-000 RMSCACHE ROUTINE met 98:39:53 RMS.SRCIRMOCACHE .MAR; 1 © (7) | 
FB s 
ore § ; Check for possible writeback errors. This is only branched to after 
FB 40 ; finding a lock with bdb (i.e., cached). A similar check is made in 
OFB 41 ; the RMSFREE_LCL routine. 
ee 
OC AB «848 AS OC OF 44 WBKERR: MOVZWL BDBSL_IOSB(R5), RABSL_STV(R8) ; Store i/o error code. | 
18 45 RMSERR WER ; Note error with RMS code. 
05 (01 278 RSB 3 And return. 
06 E5 198 2? CHKWBK: BBCC #BOBSV_AST pet = ; Branch if no writeback has been done. 
04 OA A 01 8 BOBSB_FLGSTRS), LOCK_IT 
EC 48 AS ED } $36 BLBC BOBSL_IOSB(R5), WBKERR ; Branch if error occured. 
10F 21 3 | 
10F 226 3 At this_point: | 
010F 553 ; R3 = CSH flags | 
010F 554 ; R4 = BLB 
O10F 555; R5 = BDB 
Q10F 556; | 
O10F 557 
O10F 558 LOCK_IT 
OC AS B6 O10F 559 INC BOBSW_USERS(R5) ; Bump user count. 
50 10A5 00 0112 560 MOVL BOBSL_BLB_PTR(R5), RO ; Other BLB's already? 
06 12 0116 561 BNEQ ; NEQ there are others. 
10 AS «654 «D0 0118 266 MOVL R4, BOBSL_BLB_PTR(RS)  ; Point from BDB to our BLB. 
0B 11 O11C = «56 BRB (208 ; Branch to Lock bucket. | 
54 50 D1 O11E 564 108: CMPL RO, R4 3 Is this us? 
06 13 Oigi 365 208 ; EQL then yes it is. | 
54 64 OF 0123 566 REMQUE (R4), R4 ; Remove from current position in List. 
60 64 3 8158 567 INSQUE (R4), (RO) ; Insert after BLB pointed to. 
0261 30 0129 568 20S: BSBW LOCK _BKT ; Acquire bucket lock 
7850 €9 4 C 282 BLBC RO, ERREX1 3 Exit on error | 
07 OA AS 02 = =«€1 «(O12F) = 55771 BBC #BLBSV_NOREAD ,BLB$B_BLBFLGS(R4),30$ ; ALL done if read not req'd | 
28 AS =O C0134 26 MOVL BLB$L_VALSEQNO(R4) ,= ; It is valid, so update sequence 
20 AS a} ae BDB$L_VBNSEQNO(RS) ; number from value block. | 
oc «(11 biz He BRB 40$ ; And branch to exit with success. 
04 €4 b136 576 308: BBSC #BLBSV_IOLOCK,- ; Know bucket must be read in if set. | 
OF OA A4 0130 577 BLBS$B_BLBFLGS(R4), 50$ ; Clear so it doesn't remain set. 
28 AS «=D «(0140s 78 CMPL BLBS$L~VALSEQNO(R45 ,= 3; Compare lock value number with 
20 AS 0143 579 BDBSL_VBNSEQNO(R5) ; BDB sequence number. | 
08 12 oie 389 +08 BNEQ 50$ 3; NEQ cached copy is invalid. 
54 55 00 Siar 38 MOVL R5, R4 ; Set address of BDB into R4. 
O14A 28 RMSSUC 3; Note success 
13 11 #0140 584 BRB SETRS : Branch to exit. 
gee 
O14 38 ; Bucket must be read because sequence numbers don't match, meaning the 
O14F 588 ; cached copy is invalid, or because the iolock bit is set, meaning this 
O14F 589 ; bucket is lust being faulted into the cache. 
a 
28 A400 Ola 3 50$: MOVL BLBS$L_VALSEQNO(R4) ,- ; Update BDB copy of sequence num 
20 AS b12¢ 32 BDBSL_VBNSEQNO(R5) 3 assuming success. BDB will be deq'd 
3 On errors. 
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READ_BKT: 
54 : MOVL RS, R4 ; Get BDB/GBPB addr into R4 for read. 
PUSHL R ; save cache flags over call 
FEAG' BSBW RMSROBUF WT ; Read in the bucket. 
2 POPL ; restore cache flags over call 
39 BLBC RO, ERREX ; Branch on error. 


SETRS: 

MOVL BOBSL_ADDR(R4), RS ; Buffer address into R5. 

CMPB «©: #BDBS$T_BID,BDB$B_BID(R4): If this is not a BDB 
EXIT ; then return. 


If this is an ISAM file marked for BI Journaling, and if an Exclusive lock 
has been requested for the bucket that is about to be returned, then move 
the contents of the bucket (before they are pe get dg 1 modified) into the 
vat hrs asians by the BI BDB associated with the B8DB that is about to be 
returned. 


** Actually make the copy whether EX or not. If bucket accessed for read 
** and Later upgraded to write, journaling failed because no before-image 
** was in the buffer. Improve performance here for FT2 as in note in 

** revision history. 


ce Se Se Ge Fe Ge Ge Ge Ge Ge Ge Ge 


0$: 
blbc r3,20$ :; branch if EX lock not requested 
02 BBC #1FBSV_BI,- : branch if file is not marked for 
21 OOAO CA IFB$B_JNLFLG(R10),20$ ; 81 Journaled 
CMPB #IFBSC_IDX,- ; branch if file is not an index file 
23 AA JFBS8_ORGCASE (R10) ; otherwise set up to save bucket before 
1B BNEQ 0$ ; it is modified 
3F PUSHR #*M<RO,R1,R2,R3,R4,R5> save registers over move 
50 14 AG MOVZWL BDBSW_NUMB(R4) RO move the entire bucket 
54 30 AG MOVL  BDB$L~B1_BDB(R4) ,R4 retrieve address of BI Journaling BDB 


15 a 
ADDL3 #RJRSC_BKTLEN,- position within the BI’ Journaling 
BDBSL_ADDR(R4S ,R4 


OD 

00000044 8F 
54 18 AG 
MOVC3 RO, (R5),(R4) 


; record to where the saved bucket goes 


: skip if none, too ear 
: save the un-modified bucket 
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E1 
91 
12 
BB 
af 
13 
C1 
28 
3F 6s 15$: POPR #°M<RO,R1,R2,R3,R4,R5> : restore the saved registers 
54 64 OF 20$: REMQUE (R4), R4 ; Take out of current position. 
40 AA 64 O€ al INSQUE (R4), IFBSL_BDB_FLNK(R10$ ; And stick it up front. 
05 : RSB 3; Done 
ERREX: 
53 08 060 MOVL #RLSSM_DEQ, R3 3; Force complete release of buffer. 
50 DD ERRX: PUSHL RO : Save the error code. 
S 8635 be p 64 MOVL RS, RG ; BDB/GBPB addr into R4 for release. 
FESA’ 30 64 BSBW RMSRELEASE : And release the buffer. 
50 8ED0 6 644 POPL RO ; Restore error code. 
05 7 $3? RSB 3; And Return. 
50 82AA BF 81 AA 647 ERREX1: CMPW #RMASS_RLKG*XFFFF, RO ; Was it not queued? (nowait was set) 
EA ig AF 648 BNEQ ER ; NEQ, it was segething else. 
24 A4 OD B1 649 TSTL BLBSL_LOCK_ID(R4) ; Was this already locked? 
ge 13 B4 650 BEQL ERREX ; EQL no so DEQ entirely. 
3. D4 B6 651 CLRL 3; No need to DEQ then. 


eS ee ae = ar 
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ES 11 0188 652 ina) ERRX ; Br to release it. 


Sc 
| , G6 15 
wmocacne 10 CACHE ROUTINE 4s see] 38+ 99 he: $3 AX/VMS Macro V04-00 Page 16, 


BUFF ONLY path. P= RMS. SRCIR RMOC CACHE .MAR; 1 ( 


1BA 6 : -SBTTL BUFF_ONLY path. 
1BA BUF F ONLY: 
1BA 9 § 
1BA 57 ; 
184 228 ; Always use local buffer for scratch buffer. 
1BA 660° 
0084 CA B87 QIBA 661 DECW FBSW_AVLCL(R10) ; Note use of local , butter. 
1 1B 906 BGEQ ; GEQ if have enough. 
0 3 1¢ 66 BSBW RMSFREE_LCL ; Free up a buffer. 
E 1¢ 664 BLBS : Branch if — ata 
0084 CA BG 106 665 INCW  IFB$W_AVLCL(R10) : Restore cou 
1¢8 og8 108 RSB ; Return with. sien in RO. 
0180 30 QOI1CB 668 BSBW RMSGET_LCL ; Go get a ae buffer. 
OC AS B6 es yg INCW BOBSW 0s SER RSeR ; Note in us 
54 55 D0 01D 670 MOVL R5, RG ; Return 806 addr in R4. 
0104 =671 RMSSUC 3; Note succ 
89 11 01D7 672 RB SETRS 3; Set RS pat returt. 
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-SBTTL SCAN_LOCKS Search BLB List for BLB. 


RMOCACHE 10 C¢ 
vOe=000 SCAN_ 
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SCAN_LOCKS 
Scan BLB List for match on desired vbn. If BDB for that 
vbn is found, note BDB address. If BLB free or this stream 
owns it, then note that also 
GBPB's are eats 9 reported if this stream already has it 
accessed. (Only 1 GBPB per accessor, ever). 
Calling sequence: 
BSBW SCAN_LOCKS 
Input Parameters: 
Ri = VBN of bucket desired 
R3 - CSH fla 1% 
44 - _TFAB/IR B address 
1FBSL_BLBFLNK - lListhead for BLB List 


Output Parameters: 


Se ieiniointininininin aeaneutes 
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+0009 0009 000900 C0 CD C008 INI NII 


691 


RO - success if ng = epee BLB or BLB owned by this 
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00 stream is found. 
4 - failure otherwise. 
At R4 - BLB address if RO success, undefined otherwise. 
705 R5 - BDB address of BDB for pychet R1 if any present, g Fapprenene 
706 of status. Zero if no BDB for bucket R1 
a4 GBPB edaress only if this stream currently has it accessed. 
4 Side effects: 
711 If gh Sy deferred writeback buffer accessed for a locker, 
re then the DFW flag in the BLB is cleared. 
71 AP destroyed. 
714 ;-- 
715 
716 SCAN_LOCKS: 
55 D4 717 CLRL RS ; Init BDB return. 
50 0098 CA DE 718 MOVAL IFBSL_BLBFLNK(R10), RO ; Save for end test 
54 50 00 al MOVL RO, R& 3; Get start of List 
A 1 ASSUME BLBSL_FLNK EQ 0 
54 64 00 7 Q 10$: MOVL (R4), R4 ; Get next BLB 
50 54 01 724 CMPL R4, RO ; At end of List? 
oo) ts 725 BEQL 50 ; EQL get a free one 
51 14 AG DT 7 § CMPL 1 ete R1 : Is this the one? 
fae te f , BNEQ 10$ 3; NEQ then try next one 
729; 
750 ; A BLB for the requested bucket has been located. 
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v04-000 CAN_LOCKS Search BLB List for BLB. gree b= 4 EE CAMS SRCIRMOCACHE MAR: 1 , (9) 
1} q ; If this stream already owns it, return with success. | 
1F1 733° 
DO O1F1 734 MOVL BLBSL_BDB_ADDR(R4), AP ; Pick up BDB/GBPB address. 
D1 OFS 735 CMPL BI, B9LOUNER (RS) , R9 ; Does this stream own it? 
13 O1F9) = 736 BEQL $ 3; Br if so. 
Be 1FB 40737 TSTL AP ; Was there a 8DB/GBPB? 
1 A f : BEQL 10$ ; No, keep looking. 
O1FF 740 ASSUME B8DB$B_BID EQ GBPB$B_BID 
O1FF 741 ASSUME <BDB$C_BID & 1> EQ 0 
gic £6 ASSUME <GBPBSC_BID & 1> EQ 1 
E8 $4 744 BLBS GBPB$B_BID(AP), 10$ :; Ignore all other GBPB's. 
DO 0203 745 MOVL AP, R ; Note BDB address. 
D9 0206 746 MOVL § BLBSL_OWNER(R4), AP : Pick up owner, if any. 
1 BSoe 747 BEQL 20$ 3; No owner, then use it. 
D1 O020C 748 CMPL R10, AP ; Is the ifab the owner? 
12 8 OF 749 BNEQ 10$ :; If not, keep looking. 
Bf 
0211 036 ; This is a BLB for the desired bucket, with the ifab as the owner. 
0211 7535 ; It is a deferred write buffer (DFW). If this stream only wants read 
0211 754 ; access to the buffer, then simply use this BLB. No conversion will 
0211 755 ; be done in that case, which means a blocking AST to write back the 
o61! 756 ; buffer can occur at any time. This is not a problem because readers 
0211 757 ; don’t modify the buffer. 
0211 758 ; If the bucket is to be locked, the DFW flag is used to interlock access 
0211 759 ; to this BLB. By clearing the flag. the blocking AST is inhibited from 
0211 760 ; writing back the buffer while it is being modified. The buffer will 
0211 761 ; be written back when this access is complete. 
6211 r6¢ 3 If the DFW flag is already clear, it indicates that a write back is 
0211 763 ; already in progress. In that case, this thread must be stalled 
0211 764 ; until the writeback is complete. 
0211 765 ; This avoids the need to send a blocking AST in the normal multistream case. 
0211 766 ; Dirty buffers are therefore passed from stream to stream, although 
esti At 3; they are not passed from process to process. 
0541 769 
ast ooo ASSUME CSH$V_LOCK EQ 0 
E9 0511 oe BLBC R3, 208 ; If only a reader, take the buffer. 
E4 0214 77 BBSC #BLBSV_DFW,- : Branch unless writeback i 
8 18 774 BL BSB BLBFLGS(R4), 208 ; already in progress. 
dO 021 775 MOVL. R9, BCBSL_OWNER(R4) : Note thread that is stalling. 
$6 021D 76 BISB2 M#BLBSM_LOCK, BLBS$B_BLBFLGS(R4) ; Note that thread is stalling. 
D 8 OP a. MOVQ = R2, -(SP) ; Save registers. 
ae 4 778 BSBW RMSSTALL ; Wait for writeback to complete. 
73 0 : 4 uA, IRBSB_EFN(R9) ; DO NOT set efn if zero. | 
C 781 SSETEF_S sepee omen ; Set event flag. 
7D 8 e+? ¢ 18$: MOVQ (SP)+, R2 ; Restore registers. 
9 783 208: 
9 784 RMSSUC ; Note success. 
05 C 785 RSB ; Return. 
St 
> 7; 
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Search BLB List for BLB. 


“SEP=-19 
“SEP-19 


2 99:59:33 


AX/VMS Macro Vv04-00 
RMS .SRCIRMOCACHE .MAR; 1 


Page 


189 ; BLB was found which we own. Note the 8DB/GBPB address and return success. 


790 
791 30$: 
af: 
793 508: 
794 


mMOVL 
BRB 
CLRL 
RSB 


RS 


; Note BDB/GBPB address. 
; Return success. 
; Note failure. 


; Return. 


—————— 
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4 796 ;++ 
28 58g: GET_BLB | 
42 799 : 
4 0; Look for free BLB from the end of List to the front. 
‘3 4 : A ‘free BLB’ has a zero vbn field. | 
4 : Calling sequence: 
§ 45 bi ; bit 
0245 05 ; BSBW GET_BLB 
0245 6 § 
8 t2 if 3; Input parameters: 
0245 809; R10 - ifab addres 
0245 810; BLBSL oF LNK = - = BLB Listhead forward Link 
8 $2 He 3 BLBSL_BLNK - BLB Listhead backward Link 
8 t2 15 : R9 = structure which will own lock (ifab/irab) 
0245 815 ; R1 = VBN to be accessed by bucket lock 
0245 816; 
Oste 817 ; Output parameters: 
0245 818; 
0245 819; R4 - address of free BLB 
0245 839 3 
0245 : 1; Side effects: 
0245 $$ 8 : 
0245 823; BLB returned in R4 is moved to head of BLB chain. 
osee Sse : AP destroyed. : 
0245 825; Bugcheck if no BLB is available. 
0245 826; 
Bete 827 ;-- 
0245 : 8 
0245 9 GET_BLB: 
0245 830 
0245 831 ASSUME BLBSL_BLNK EQ <BLBSL_FLNK + 4> 
ogee o3¢ ASSUME IFBSL— _BLBBLNK EQ <IFBSL— _BLBFLNK + 4> 
54 0098 CA DE 0245 834 MOVAL IFBSL_BLBFLNK(R10), R4 ; Get List head. 
5C 54 00 O24A 835 MOVL 3; Save for end test. 
54 04 A4 00 0240 836 100$: MOVL 4(R4) : Get back Link. 
c 6S6~CO«Oéé#WN 0 51 83 CMPL RG, AP : Back at List head? 
16 13 0254 838 BEQL «=s«110$ : If so, then bugcheck 
14 AS DS 8 26 o73 TSTL BL BSL. VBN(R4) 3; This one free? 
F2 ie 5 40 BNEQ 100$ : No, move on to next one. 
10 AS) «=6559°—s—s«é#sCsé 2B of) MOVL Ry. BLBSL_OWNER(R4) 3; Note owner. 
14 A4 51 dO 8 SF 4g MOVL BLBS$L_VBN(R4) : note resource. 
54 64 OF 63 4 REMQUE f rd), RG ve from current place in chain. 
0098 CA 64 bE 3 66 rf: INSQUE (R4), IFBSL _BLBFLNK(R10)° : i in front to find quick. 
0 68 $B ; Return. | 
bScc 46 110$: 
6C 4 RMSPBUG FTL$_NOBLB ; Should always find one. | 
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7 49 3 ++ 
7 50 ; 
f 31 : RMSFREE_LCL 
8 7 34 ; Toss the oldest least valuable buffer out of the cache. This — 
7 54 ; routine is called when the AVLCL count is less than zero, meaning 
027 55 ; that all BLB's are being used either for caching or access of a 
027 2$ ; bucket. It does not neceseer Thy mean that there are no BDB's free 
027 57 ; because multiple BLB's may be tied up Serevent sae a single BDB. 
027 28 ; Nonetheless, a BDB must be tossed out of the cache to free up its 
0 f B66 > associated BLB. 
7 61 : Calling sequence: 
027 g6¢ 3 . 
027 65 ; BSB RMSFREE_LCL 
027 864 ; 
027 865 ; Input Parameters: 
027 866 ; 
027 867 ; R10 - __Ifab address : ; 
027 868 ; IFBS$L_BDB_BLNK = back Link of 8DB Listhead. 
bere 869 ; RO = Thread to stall (if necessary) 
027 870 ; 
0273 871 ; Output Parameters: 
0273 are : 
Oere 873 ; RO = status value from call to RMSRELEASE 
027 874 ; DME - all valid BDB's were in use. 
Gers 6873 5 
0273 876 ; Side effects: 
O67 877 ; 
027 878 : AP destroyed. 
0273 879 ; 
027 880 ;-- 
027 881 
027 Ht RMSFREE_LCL:: Z 
= © 638 88 PUSHR #*M<R1,R2,R3,R4> ; Save registers. 
54 D4 0275 884 CLRL RS ; Init last BDB seen, 

51 01 CE 0277 885 MNEGL #1, R1 ; Init last cache value. , 
027A 886 ; This should y ~ cause the first 
027A 887 ; BDB possible to be selected. 
027A 888 ASSUME BDBSL_FLINK EQ 6 
S344 red ASSUME BDB$L_BLINK EQ <BDBSL_FLINK + 4> 

50 40 AA DE O27A 391 MOVAL IFBSL_BDB_FLNK(R10), RO ; Get List head into RO. 
5c }6.50~—s—«éO0 8 it 536 108 MOVL RO, AP : Save for end test. 
50 04 A0 DO 0 +} 894 MOVL 4(RO), RO ; Get next BDB. 
5c 650~—séOD 0 5 895 CMPL RO, AP : End of chain? 
iF 13 88 iF BEaL «= 208 : EQL means at end. 
A 98 ASSUME B8DB$B_BID EG GBPB$B_BID 
A 44 ASSUME <BDBSC_BID & 1> EQ 0 
rn ano ASSUME <GBPBSC_BID & 1> EQ 1 
F3 08 AO eS 03 A O08 BLBS BDBSB_BID(RO), 108 ; Continue scan if gbpb. 
0c AO 6B RF = =90 TSTw © BDBSWIUSERS(RO) ; Is this one accessed? 
EE ig og 904 BNEQ ; NEQ it is = keep going. 
1c AO OD 93 905 TSTL BDBSL_VBN(RO) 3; See if valid. 
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—E9 «13 9 90 BEQL 10$ ; Continue search for valid BDB. 
51 OB AO 91 38 $09 CMPB BDBSB_CACHE_VAL(RO), ; pone valuable than what has already | 
; been seen? 
3 1E 9C¢ =: 909 BGEQU = : GEQU, then ju ust ae Looking. 
5 0 00 3 910 MOVL R4 ; Save this BDB a $s. 
51° 0B AO 9A O2Al 911 MOVZBL RDSSECACHE_VAL(RO), R1 ; Save this as Lowest seen. 
A 12 Ne 318 BNEQ 10$ ; If non-zero, keep trying. 
D 611 0 - SF BRB 50$ 3; Use the first 8D with zero value. 
AQ 915; 
O2A9 318 ; At end of List. If anything was noted, then use it 
8 A9 917 ; If no BDB's can be tossed out, scan the BLB List ion a deferred write 
A9 918 ; BLB, and DEQ that Lock. 
QO2A9 919; 
02A9 920 
DS O2A9 921 20S: TSTL RG ; Did we find a BDB? 
i 3 12 Q2AB 9 § BNEQ 50$ 3; Go free it, +t one found. 
07 6A 3 +€1 O2AD 3s BBC #1FBSV vey (R10),25$: None found, check BLBs if locking. 
02B1 924 RMSPBUG FTLS$_ NOL CLBUF ; We should have found a 8DB, The 
bSe8 882 3; AVLCL count is probably wrong. 
$568 927 ASSUME BLBSL_ 4 EQ 0 
0288 928 ASSUME BLBSL “BLN EQ <BLBSL_FLNK + 4> 
ose8 389 ASSUME IFBSL~ ~BLBBLNK EQ <IFBSL— _BLBFLNK + 4> 
52 0098 CA ODE aeee 931 25$: MOVAL IFBSL_BLBFLNK(R10), R2 : Address of Stetheus. 
5C 52 dO 028d 338 MOVL " : Save for end t 
52 04 A2 00 O2CO0 933 30S: MOVL 4(R2), R2 ; Get next BLB re OO backwards). 
SC 52 D1 0264 934 CMPL R2, AP : Done yet? 
4 3S ose? 935 BEQL 4 : EQL then at end of List. 
5A 10 A2 D1 0209 936 CMPL BLBSL_OWNER(R2), R10 3; Does ifab own this lock? 
Fi 12 O02CD 937 BNEQ (i ; No, check the next one. 
05 €0 O2CF 938 BBS #BLB ; Found one, now make sure this 
05 OA A2 0201 939 gLBSe “star Cescna). 35$ ; is really a deferred write lock 
06 €1 0204 940 BBC LB$V_WRITEBACK : and not the IFAB from a SOPEN 
E7 OA A2 0206 9-941 BLBSe "BLBFLES(ROS, 30$ : command. 
0209 aoe 
0209 94 
0209 9944 ‘ : 
8508 945 ; Have found a lock with the ifab as the owner. This is a deferred 
0209 946 ; write lock. Get the BDB address into R4 and branch into code to 
0209 947 ; release this tock and free the BLB. 
0509949 
54 OC A2. 00 6 D9 «©6950 358: MOVL BLBSL_BDB_ADDR(R2), R4 ; Want BDB address in R4. | 
12 11 O2DD 951 BRB 55$ ; And go release it 
O2DF 928 40$: 
O2DF 95 RMSERR iy ; Couldn't find  engthing to release. 
3C)0— «11 —CO2E4 Ss («954 BRB 0$ : Branch to exit. 
0266 955 
02E6 329 50$: 
S566 98 | 
£6 339 ; A BDB has been selected to toss out of the cache. Release it, forcing 
E6 960 ; write-thru if dirty. The RLSSM_DEQ flag causes the buffer to be 
&° 2) 3; completely released and made available. 
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E6 963 ; Check now to see if a writebeck is whrenty he progress on this 
£? 964 ; BLB. If so, then stall until it is complet 
E 965 ; At this point, we know there are no other eccousers to this bucket, 
E6 966 ; and therefore the BLB_PTR must point to the deferred write 
E6 967 ; BLB if there is one. 
ae 
52 10 A4 0 E6 970 MOVL BOBSL_BLB_PTR(R4), R2 : Get the BLB address. 
24.—~=«‘(z” EA 971 BEQL 60$ : No locking, just dequeue then. 
10 A2 b O2EC 3r¢ TSTL rt te OWNER (R2) ; Any owner for this lock? 
| es ae. ee ee BEQL : EQL then it’s not dirty. 
10 A2 59 ~=20 8 Fi 974 55$: MOVL pe Rte OWNER (R2) : Note thread that is stalling. 
0S €4 4 975 BBSC ¢ Grange if writeback has not 
16 OA A2 O2F 976 Broee Bree Cascr2) rted and claim this BLB. 
OA A201 $8 O2FA 977 BISB2 aaLBSh LOCK, BLesé_ stBréstha 3 Note this thread is stalled. 
FCFF® 30 O2FE 978 BSBW RMSSTA : Stall until writeback complete. 
0B Ad) «695 )«=—0301)—Sss«979 TSTB TRBSB. EFN(R9) : te NOT set efn if zero. 
OA 13 0304 980 BEQL $ 
8308 +t 60s SSETEF _S IRBSB_EFN(R9) ; Set event flag. 
06 €5 0310 383 BBCC #BDB$V_AST_DCL,- ; Branch if no writeback has been done. 
04 OA AG ha 984 BDBSB_ FLGSTR4), 70$ 
0c 48 AS «OED. 031 985 BLBC BDBSL-IOSB(R4), 90$ : Branch if an error has occured. 
53 08 DO 0319 986 70$: MOVL #RLS$A_DEQ, R3 ; Init release {legs to release lock. 
031C 987 ; DEQ flag i oka es uette thru if dirty. 
OC AS =6B6 SGCi31C—Osé988 INCW BOBSW_USERS(R4) ; Make it look accessed. 
FCDE' 30 O31F 989 BSBW RMSRELEASE 3; And release it. 
1E BA 0322 990 80S: POPR #*M<R1,R2,R3,R4> ; Restore registers. 
05 0324 991 RSB 3; Return. 
0325 992 90$: 
OC AB 48 AG 3C «(0325 = «99 MOVZWL BDBSL_IOSB(R4), RABSL_STV(R8) ; Store i/o error code. 
032A 994 RMSERR WER : Note error with RMS code. 
Fl 11 O32F 995 BRB 80$ 3: and return. 
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SCAN_LCL_ CACHE 
Search List of all BDB's for match on the VBN field. 
Calling sequence: 
BSB SCAN_LCL_ CACHE 
Input Parameters: 


R10 - ifab address 
IFBSL_BDB_FLNK = forward Link of BDB Listhead. 


Ri = VBN of bucket desired 
Output Parameters: 


wr 
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03 RS - address of BDB that matches desired VBN or 0 if not found 
O33] 1018 ° 
03 019 SCAN_LCL_ CACHE: 
55 40 AA DE 03 0 MOVAL IFBSL_BDB_FLNK(R10), RS ; Address of BDB Listhead. 
.. ms BF 8 1 MOVL RS, AP 3; Save for end test. 
03 0 5 ASSUME BDBSL_FLINK EQ 0 
55 65 00 63 6 5 10$: MOVL (R5), RS ; Get next BDB. 
x > FS 0 § CAPL 3; At end of List yet? 
0B «13 33 ‘ 0 BEQL 50 3; EQL yes. quit. 
51 1C AS D1 034 028 CMPL BOSSL_VBN(R5), R1 ; Is this the right one? 
F2 12 Baee 8 3 BNEQ 10$ ; No, try next one. 
0346 1031 ASSUME <BDBSC_BID & 1> EQ 0 
3 rh 0 g ASSUME <GBPB$T_BID & 1> EG 1 
EE 08 AS FS 0346 O34 BLBS BDBSB_BID(R5), 10$ ; Not a BDB. Continue search. 
034A 1035 gps RSB ; Return. 
55 D4 8 48 B39 0$ CLRL R5 ; Note failure. 
05 4D 10 RSB ; Return. 
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RMSGET_LCL_BUFF 


Search List of BDB's f 
one with VBN=0, USERS= 


Calling sequence: 
BSBW RMSGET_LCL_BUFF 
Input Parameters: 
Ri - VBN desired 
R2 = Size of bucket 
R10 - Ifab address 
BDB_BLNK = Back BDB Link 
Output Parameters: 
RS - BOB address 
VBN set to R1 
NUMB set to R2 
Side effects: 


NOLCLBUF bugcheck if no BDB is found. 
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r nd of list to the front for 
0, and SIZE | 


arge enough. 
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RMSGET_LCL_BUFF:: 
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ASSUME BDBSL_FLINK EQ 0 
7 ASSUME BDBSL_BLINK EQ <BDBSL_FLINK + 4> 
ASSUME IFBSL_BDB_BLNK €0 <I1FBSL_BDB_FLNK + 4> 
55 40 AA ODE 7 MOVAL IFBSL_BDB_FLNK(R10), R35 ; Get BDB List head. 
x 3 ww : , 10s MOVL RS, AP 3; Save for end test. 
55 04 A5 00 035 7 “MOVE «= & CRS), RS : Get next BDB. 
x F FI 5 ? CMPL R5, AP ; At end of List? ; 
28 13 5 8 BEQL 100$ : Bug if none found in List. 
10 AS 5 5 8 TSTL BOBSL_VBN(R5) ; This buffer free? : 
re ig 6 BNEQ ; NEQ it's in use. Continue search. 
OC A B 6 TSTW BDBSW_USERS(R5) 3; In use? 
ED 12 ? BNEQ 10$ ; NEQ in use, try another. 
6 8 ASSUME <BDBS$C_BID & 1> EQ 0 
? 4 ASSUME <GBPBSC_BID & 1> EQ 1 
—E9 08 AS” EB 36 8 BLBS BDOB$B_BID(R5), 10$ ; It's not a BDB. Continue search. 
52. 16 a5 B11 0 $ 9 CMPW BOBSWTSIZE(R5S, R2 : Is this buffer large enough? 
—e> , 2 BLSSU 108 ; LSSU not big enough - try another. 
10 AS 4 7 9 CLRL BOBSL_BLB_PTR(RS) ; Make sure this is 0. 
10 AS =651—0 7? 9 MOVL R1, BOBSL_VBN(R5) ; Found one- store VBN. 
14 a5 52 BO 79 9 MOVW R2, BDBSW_NUMB(R5) ; Store size desired. 
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10 CACHE ROUTINE 19360-1388 0: +19: 33 a hes A Ma cre v04-00 
SCAN_LOCKS Search BLB List for BLB. -SEP-1984 16: RMS .SRCJRMOCACHE .MAR; 1 
3] 1 7D 1 38 BBC WIFBSV_MSE, (R10), 20$ ; Branch if not multistreaming. 
0 3 d 109 BISB2 #BDBSM “NOLOCATE, 6pB$B_ FLGS(RS) ; Don't allow locate mode. 
3 ! i 208: RSB 
6 1100 100$: RMSPBUG FTL$_NOLCLBUF ; Should always find one. 
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LOCK_BkT 
This routine is called to obtain a lock for the requested bucket 
for either read yy or modify. In addition, it may also be known 
that the Lock must be of a sit g enough mode to interlock an i/o 
operation. The following lock manager modes are used: 
LCKSK_PWMODE if holding modified buffer. No conversion will 
e done if this is not a LOCK request to cache. 
LCKSK_EXMODE for all locks. 
Calling sequence: 
BSBW LOCK_BKT 
Input Parameters: 
R10 - ifzb address 
IFBSL_SFSB_PTR = ee to shared file synchronization block 
SFSBSL_LOCK_ID - lock id of shared file lock 


R9 -  ifab/irab address 
IRBSB_EFN - event flag to use. 


R4 -  BLB address 
BLBSB_MODEHELD - mode of lock currently held. 
BLBSL_LOCK_ID - ID of lock if one already held 
BLBSL_RESDSC - resource name descriptor (should point to BLBSL_VBN) 
R3 =- Cache flags (same as input to RMSCACHE). 
Output Parameters: 


RO - status value of SENQ service after call to RMSMAPERR. 
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38 
3 Side effects: 
38 BLBSL_LKSTS field contains value of ENQ service. 
38 BLBSL_VALBLK contains value block for lock requested. 
38 BLBSL_OWNER is set to R9. ; 
38 BLBSB_MODEHELD contains mode of lock obtained. 
3 BLB$B_BLBFLGS contain the cache flags also. 
38 R1 is plueys destroyed. 
38 If lock not granted synchonous ly will return at AST level with 
33 event flag (IRBSB_EFN) set and AP, and R2 will be destroyed. 
38 a= 
38 
38 LOCK_BKT: 
5 ASSUME CSH$V_LOCK EQ BLBS$V_LOCK 
8 ASSUME CSH$V_NOWAIT EQ BLBS$V_NOWAIT 
8 ASSUME CSHSV“NOREAD EQ BLB$V—NORE AD 
3 ASSUME CSHSV“NOBUFFER €Q BLBSV~NOBUF FER 
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v04- SCAN_LOCKS Search BLB List for BLB. ety 7 99:39:33 RMS.SRCJRMOCACHE .MAR; 1 . (8 
D 1159 
9 AG 559 0 iD 1160 MOVL R9, BLBSL_OWNER(R4) ; Note owning stream. 
5 FO 8F A } 1161 BICB #°ECSH_MASK_ALL, R ; Clear out all but csh flags 
OA AG OF A 9 1188 BICB MASK_ACL 6LB$B_BLBFLGS(R4) ; Clear out csh flags 
OA AG «53 8 0 +4 14e7 BISB R35, GLB$B~BLBFLGS(R4T ; Store csh flags in blb flags field. 
9D 1165 ; 
0390 1198 ; The lock may currently be held in NL, PW or EX mode. 
039D 1167 ; NL mode is used to cache local buffers. 
8 9D 1168 ; PW mode is used when a modified buffer is held locally. 
9D 1199 ; EX mode is normally used when a bucket is accessed. 
8 9D 1170 ; The exception is that if a Pw lock is already held and only a read 
9D 1171 ; lock on the bucket is desired, no conversion is necessary. 
0390 1128 ; PW is converted to EX for modify access to eliminate the possibility of 
8 30 Woz ; a blocking AST arriving during the access. 
039D 1175 ASSUME CSH$V_LOCK EQ 0 
th 1176 
1. 046 »p0 0390 117 MOVL #LCKSK_PWMODE, R1 ; Assume read lock desired. 
03 OA AS) =6E9 «6(03A0 «(1178 BLBC BLB$B _BLBFLGS(R4), 10$ ; Branch if write lock not wanted. 
51 05 D0 O3A4 1179 MOVL #LCKSR_EXMODE, R1 : Get exclusive lock. 
51 AS 91 O3A7 1180 10S: CMPB BLBSB_MODEHELD(R4), Ri ; Is high enough mode held already? 
04 if O3AB 1181 LSSU 30$ ; LSSU then continue 
O3AD 1356 RMSSUC : return success. 
05 0380 118 $B 
0381 1184 ; : 
0381 1185 ; Build FLAG List for ENQ. 
0381 1186 ; 
53. pd 0381 1187 30s: PUSHL R3 ;_save cache flags 
53 19 DO 0383 1188 MOVL #LCKSM_SYSTEM!LCKSM_SYNCSTS!LCKSM_VALBLK,R3 ; Always use these flags 
24 04 D5 0386 1189 TSTL BLBSL_COCK_ID(R4) ; Is lock~already held? 
03 13 0389 1190 BEQL 31$ : No, goon | i 
53 02 0«6C8 «O03BB O19 BISL2 #LCKSM_CONVERT,R3 ; Add conversion flag to our List. 
03 OA AS O01 CCE rd 1138 31$: BBC #BLBSV_NOWAIT,BLBSB_BLBFLGS(R4),32$ ; Br if wait desired. 
535 046 «(C8 Oac2 W132 BISL2 #LCKSMTNOQUEUE ,R3 ; Do not wait for this lock. 
0080 CA D5 03C6 1195 328: TSTL FBSL_PAR_LOCK_ID(R10) ; Make sure parent lock is present. 
07 12 O3CA 1196 BNEQ 5$ 
bac 1197 RMSPBUG FTLS_NOSFSB ; No, we are in trouble! 
0303 1198 
0303 1199 ; 
03D 1500 ; Do the ENQ for the bucket. 
0303 1201; 
C2A° 30 $3 1508 35$: BSBW RMSSETEFN ; Get an event flag 
F : : 
50 8EDO 0306 1204 POPL RO ; Put it in RO. 
0309 1205 SENQ_S EFN = RO,- 
0309 1 06 LKMODE = #LCKSK_EXMODE,- 
0309 120 SB. = _BLBS$W_CKSTS(R4),- 
0309 1208 AGS = R3,- 
0 D9 1209 RESNAM = BLBSL_RESDSC(R4),- 
D9 1210 ARID = IFBSL_PAR_LOCK_ID(R10),- 
03bD9 1211 ASTADR = W*RMSSTALCAST,= 
0309 1 \¢ ASTPRM = R9 
3FA 121 
1E 50 €9 O3FA 1214 BLBC RO, 110% ; Exit on error. 
50 0689 8F 61 O3FD 1215 CMPW =s #SS$_SYNCH, RO : Need to stall? 
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v04-000 SCAN_LOCKS Search BLB List for BLB. ets 1 09:39:53 LRMS SRCIRMOCACHE MAR: 1 . (14) 
13. 0402 121 BEQ 70$ ; EQL all done. 
33 Bp 404 1 19 50$ PUSHL R ; Save ENQ flags around stall. 
FBF7* 30 04 3 1218 BSBW RMSSTALL ; Stall for lock. 
53 bEpO re 1219 POPL g ; Restore ENQ flags. 
50 20 AG C Q40C 1220 70$ MOVZWL BLBSW pgstee RO ; Get completion status into RO. 
08 50 5 410 1221 BLBC RO, 1T0$ ; Branch on error. 
0B A4 03 0 0413 1 é 80$: MOVB WL CKSK_EXMODE, BLBSB_MODEHELD(R4); Store lock mode in blb. 
BEDO 0417 1 90$: POPL R ; restore cache flags 
05 O41A 1224 RSB ; Return. 
041B 1225 
041B 1226 ; 
pris 1227 ; An error occured on the ENQ service. Deadlock errors may occur 
41B 1228 ; normally because of the deferred write mechanism and are simply 
0418 1 $3 3; requeued. 
041B 1230 ; 
041B 1231 
50 OEFOA 8F 81 0418 1 3 110$: CMPW #SS$_DEADLOCK, RO ; Was it deadlock? 
13 be58 123 BEQL 35$ :; Try it again if it was. 
50 2A64 BF B1 0422 1234 CMPW #SS$_EXENQLM, RO ; Exceed our lock quota? 
13 0427 1235 BEQL 150$ ; Br if yes. 
50 0O€12 8F B1 0429 1236 CMPW #SS$_NOLOCKID, RO 3 Lock id table full? 
1C 413 042E \¢32 BEQL 150$ ; Br if yes. 
50 O9FO 8F B11 0430 1238 CMPW #SS$_VALNOTVALID,RO ; Has lock manager returned old vaiue block? 
0B 12 0435 1239 BNEQ 120$ ; No, report the error. 
28 AS) =—6 0437) =1240 NCL BLBSL_VALSEQNO(R4) ; Bump sequence number on bucket to get new 
043A 1241 RMSSUC ; Consider this ENQ successful. 
D4 11 043d 1stg BRB 80$ ; Branch to finish up. 
50 BEDO O43F 1243 115%: POPL RO ; Return with original error. 
0442 1244 120$:  RMSERR ENQ, R1 ; Default error code. 
FBB6" 30 0447 1245 BSBW RMSMAPERR ; Try to map error. 
CB «11 «=2(044A «(1246 BRB 90$ 3; Return. 
044C 1247 
044C 1248 ; ; 
044C 1249 ; This is either a case where we've exceeded our lock quota or the system 
044C 1250 ; lock id table is full. It may be the case that something can be tossed 
044C 1251 ; out of our local cache and thereby free up a lock to continue with this 
044€ 1$2¢ 3 operation. If that fails, return with the original error. Otherwise, 
044C 12535 ; requeue the lock request. 
044C 1254 ; 
044C 1255 
50 DD 044C 1256 150$: PUSHL RO : Save this error code. 
FE22 30 O44€ 1257 BSBW RMSFREE LCL ; Try to free a buffer. 
€B 50 €9 0451 1258 BLBC RO, 1158 : Branch on failure. 
50 8EDO 0454 1259 POPL R ; Pop error off stack. 
FF79 31 0457 1260 BRW 35$ ; Go try request again. 
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Get EX lock on GBS to search cache. 


to gbl header. 


of next GBD element. 

desired bucket? 

found it or not here. 
of next GBD element. 

desired bucket? 

found it or not here. 
of next GBD element. 

desired bucket? 

found it or not here. 
of next GBD element. 

desired bucket? 

found it or not here. 
of next GBD element. 

desired bucket? 

found it or not here. 


RMOCACHE 10 CACHE ROUTINE ; i at dat B49 00:1 
v04-0 SCAN_LOCKS Search BLB List for BLB. “SEP-1984 16:2 
45A 1262 ;++ 
45A 1 8 3 
45A 1264 ; SCAN_GBL 
45A 1265 ; 
t2A ! 96 : Scan global cache for match on desired bucket. 
045A 1268 : Callin sequence: 
045A 1269 ; 7 
045A 1270 : BSBW  SCAN_GBL 
045A 1271 ; 
045A 1 ie ; Input parameters: 
Bree 1273 ; 
45A 1274; R10 - ifab address 
Been : PR ; GBH_PTR = pointer to global buffer header area 
045A 1277; R1 - vbn of desired bucket 
045A 1278; 
045A 1279 ; Output parameters: 
045A 1280 ; 
045A 1281; RO - success 
045A 1e8¢ 3 RS - GBPB address 
045A 1283 ; else 
045A 1284; RO - failure (0) 
045A 1285 ; RS - addr of next lower valued GBD or zero if no GBPB found. 
045A 1286; 
045A 1287 ; Side effects: 
QO45A 1288 ; AP destroyed. 2 ees ; 
045A 1289 ; EXclusive lock on global buffer section is obtained and kept. 
045A 1630 ; 
045A 1291 ;-- 
045A 1936 
045A 139 SCAN_GBL: 
045A 1294 ASSUME GBHS$L_GBD_FLNK £0 0 
045A 1993 ASSUME GBHSL_GBD BLNK €Q 4 
045A 1296 ASSUME GBOSL_FLINK EQ 0 
045A 1297 ASSUME GBDSL_BLINK EQ 4 
been 1638 ASSUME GBDSL_VBN EQ GBHS$L_H1_VBN 
FBA3' 30 045A 1390 BSBW RMSRAISE _GBS_LOCK : 
0088 CA D0 045D 1301 MOVL IFB$L_GBA_PTR(R10), RO ; Get pointer 
x wD Bebe 1306 MOVL RO, AP : Save for Later. 
50 60 CO 0465 1304 10$: ADDL2 (RO), RO 3; Get address 
51 0c AO 01 BeG8 1303 CMPL SBOSL_VENCRO) . a : Is this one 
2D 1E 046C 1306 BGEQU 0$ ; GEQU either 
50 60 CO O46E€ 1307 ADDL2 (RO), RO 3; Get address 
51 OC AO 9) 0471 1308 CMPL GBD$L_VBN(RO), R1 : Is this one 
24 E 3053 1309 BGEQU§ 20$ ; GEQU e‘ther 
50 60 CO 04 1310 ADDL2 (RO), RO ; Get address 
51 Oc AO pt 047A 1311 CMPL GBD$L_VBN(RO), R1 ; Is this one 
18 E O47E 1 1 BGEQ 20$ ; GEQU either 
50 60 CO 0480 131 ADDL (RO), RO ; Get address 
51 0c AO Di 04 1314 CMPL GBDSL_VBN(RO), R1 ; Is this one 
12 if 04 1315 BGEQ 20$ ; GEQU either 
3 @ ¢ Be 9 1316 ADDL (RO), RO ; Get address 
51 OC 4G vi 048C 1317 CMPL GBD$L_VBN(RO), R1 ; Is this one 
0? 1€ 0490 1318 BGEQU 20% : GEOU either 
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GBHSL_HIT (AP) 
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Get address of next GBD element. 
Is this one desired bucket? 
LSSU then keep scanning. 

EQL we found it = finish up. 


Note cache miss. 


Get addr of previous element. 
Note failure. 


Note cache hit and drop through. 
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RMOCACHE 10 CACHE ROUTINE 16-SEP-1984 00:12:25 VAX/VMS Macro v04-00 Pa 2 
v04-000 SCAN_LOCKS Search BLB List for BLB. ety 90:39:83 LRMS SRCIRMOCACHE LMAR: 1 oe ie) 
4AB 1331 34+ 
4AB 1 § : 
rn ! i ; GET_GBPB 
4AB 1335 : Branch or drop through to this point after locating GBD to get a 
OcAB ! § ; GBPB and point it to GBD. . . . 
4AB 1338 : Input parameters: 
O4AB 1339: Rio = ita 
04AB 1340 ; BDB_FLNK = BDB (and GBPB) Listhead. 
peas ] rf : RO - GBD address 
S 1 rk : Output Cpe 
04AB 1344; If RO = success 
04AB 1345 ; then RS = GBPB address 
04AB 1366 ; else RS = 0 if GBPB not found. 
04A8 13 : 
04AB 1348 ;-- 
04AB 1349 GET_GBPB: 
20 AO =B6 04AB «1350 INCW GBD$W_USECNT(RO) ; Bump use count in GBD (we are assuming 
QO4AE 1351 3 that a GBPB will be found). 
DD OQ4AE 1326 PUSHL RO ; Save GBD around lock manager call. 
FB4D" 30 0480 135 BSBW RMSLOWER_GBS_LOCK ; Lower lock on GBS to NL. 
50 8EDO pees 132¢ POPL RO ; Restore GBD. 
55 40 AA DE 0486 1356 MOVAL IFBSL_BDB_FLNK(R10), RS ; BDB/GBPB Listhead. 
55 DO O4BA 1357 MOVL R5, AP 3; Save for end test. 
048D 1358 10S: 
048D 1359 ASSUME BDBSL_FLINK EQ 0 
cae iney ASSUME BDBSL_BLINK EQ 4 
55 04 A5 D0 048D 1308 MOVL 4(R5), RS ; Get next element.(going backwards) 
5c 655) «D1s0KC1 136 CMPL p : Back to Listhead yet? 
2F = 13 O4C4 1364 BEQL ~=«1068 : That's a bug. 
04C6 1366 ASSUME BDB$B_BID EQ GBPB$B_BID 
04C6 1367 ASSUME <BDBSC_BID & 1> EQ 0 
bere 1368 ASSUME <GBPBS$C_BID & t> EQ 1 
F3 OB A E9 04C6 1370 BLBC BDOB$B_BID(RS5), 10$ ; Branch if BDB and keep looking. 
OC AS B85 O4CA 1371 TST# GBPBSO_USERS(RS) ; Make sure it's not in use. 
12 aeee 1376 BNEQ 10$ ; NEQ it is, so keep looking. 
oer 1375 : Found the GBPB. Fill in relevant data from GBD. 
24 a5 50 DO O4CF 1376 ° MOVL RO, GBPBSL_GBD_PTR(RS) ; Pointer to GBD. 
1C AS 0c AO DO 0403 1377 MOVL GBD$L_VBN(RO), GBPBSL_VBN(R5) ; Bucket vbn. 
10 AO pO 0408 13578 MOVL GBD$L_VBNSEQNUM(RO),- ; Move sequence number from GBD to GBPB. 
20 AS ret 1323 GBPBSC_VBNSEQNO(R5) 
04DD 1381 ASSUME <GBD$W_NUMB + 2> EQ GBD$W_SIZE 
ret : Hf ASSUME <GBPBSQ_NUMB + 2> EQ GBPBS$@_SIZE 
14 AS 18 AO 00 Q4DD 1384 MOVL GBDSW_NUMB(RO), GSPBSW_NUMB(RS) ; Numb and size fields. 
11 90 O4E2 1385 MOVB #BDBSA_VAL !BDBSM_NOLOCATE ,~ : Init flags. 
OA AS 4E4 1386 GBPB$B_FLGS(R5) ¢ : 
5C 0088 CA D0 O4E6 1387 MOVL IFBSL_GBH_PTR(R10), AP ; Get pointer to gbl header. 


RMOCACHE 10 CACHE ROUTINE 16-SEP-1984 AX/VMS Macro V04-00 Page 33 
yoss000 SCAN_LOCKS Search BLB List for BLB. §: SEP-1984 A i 34: $3 Lams. SRC IRMOCACHE .MAR; 1 . (16) 
18 AS SC 1C AO C1 O4EB 1 S ADDL3 GBDSL_REL_ADDR(RO), A » GBPBSL -ADDR(RS) ; Addr of buffer. 

4F1 1 RMSSUC ; Note success. 
05 O4F4 1390 B : 
O4F5 1391 1008: 
20 AO 3=2B7 «(O04FS 1 3 DECW GBD$W_USECNT (RO) ; Decrement use count for GBD. 
50 D4 Q4F8 139 CLRL RO ; Note failure. 
55 D4 Q4FA 1394 CLRL R5 3; Note no gbpb. 
05 O4FC 1395 $B ; 
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RMOCACHE 10 CACHE ROUTINE 16-SEP-1984 00:12:25 VAX/VMS Macro v04-00 Page 34 
v04-000 SCAN_LOCKS Search BLB List for BLB. oro E En bad 98:39:33 RMS.SRCIRMOCACHE .MAR; 1 . 4) 
4FD 1397 ;++ 
4FD 1 38 : 
4FD 1399 ; FIND_FREE_GBL 
4FD 1400 ; 
O4FD 108) :; This routine is called when the desired bucket was not in the 
peed Ve ¢ : global cache. Either find a free global buffer or toss one out 
Roepe tt 3 of the cache to use. 
Rees 1702 ; We already have an exclusive lock on the GBS from calling SCAN_GBL. 
O4FD 1209 3 Input pareneterss 
O4FD 1408 ; 5 - Address of preceding GBD. 
O4FD 1409 ; 
O4FD 1410 ; Output parameters: 
O4FD 1411 ; ; 
O4FD et ; RO = success, failure 
Q4FD 1415 ; RS = GBPB addr if success. 
O4FD 1414 ; - 0 if failure. 
O4FD 1415 ; 
O4FD 1416 ;-- 
O4FD 1417 FIND_FREE GBL: 
3C0Cs« BB. C#CO4FCD S148 POSHR #*M<R2,R3,R4,R5> 
53 7C OFF 1419 CLRQ R3 ; Init lowest val, gbpb found. 
53 07 0501 1420 DECL R3 3; Make lowval -1. 
SC. 0088 CA DO 0503 1421 MOVL_  IFB$L_GBH_PTR(R10), AP : Get gb’ header. 
5C 04 AC (C1 0508 1058 ADDL3 GBH$L_GBD_BLNK(AP), AP, RO ; Get Last GBD in List. 
53 OC AO D1 0500 142 CMPL GBD$L_VBNTRO), R3 : Is the vbn -1? 
6F 13 931 ios BEQL GOT_GBD ; EQL then just use this one. 
$813 1258 ; There are no available GBD's at the end of the List. 
at lest ; Will have to select GBD to toss out of the cache. 
7E D4& 0513 1463 CLRL -(SP) : Note first pass. 
55 SC 2C AC C1 0515 1430 ADDL3 GBHS$L_GBD_END(AP), AP, R5 ; End addr of scan. 
50 S5C 30 AC C1 QSIA 1431 ADOL3 GBHS$L GBD-NEXT (APS AP, RO ; Starting point of scan. 
28 AC D1 «(OSIF 1038 CMPL GBHS$L~GBD START (AP) ,~ ; Is NEXT pointer the 
30 AC 0522 143 GBHSL_GBD_NEXT (AP) ; same as the START of GBD's? 
02 12 0524 1434 BNEQ 10$ ; NEQ then make two passes. 
6€ DS 0526 1435 INCL (SP) : Else only make one. 
52 34 aC 00 3 . 1635 go MOVL GBHSL_SCAN_NUM(AP), R2 ; Number of GBD's to search. 
20 AQ BS 052C 1438 TSTW  GBDSW_USECNT(RO) ; This one in use? 
13. 12 OS2F 1439 BNEQ ; NEQ it is. Br to loop test. 
535 OB AO 91 82 1 1440 CMPB GBD$B_CACHE_VAL(RO), R3 ; Is this lowest cache value seen? _ 
09 1€ 0535 1441 BGEQU SCANTST ; GEQU lower has been seen. Ignore it. 
54 50 00 8 7 1228 MOVL RO, R4 ; Save this GBD addr. 
53 0B AO 9A Q53A 144 MOVZBL GBD$B_CACHE_VAL(RO), R3 ; Save this cache value. 
1D 13 OS3E 1444 BEQL USE_GBD ; Use first zero value one found. 
0540 1445 SCANTST: 
52. 7 8368 1048 DECL R2 ; Keep scanning if counter not run out. 
w 3 beet 127 urs? BLEQ USE_GBD ; Use what's been found. 
rez 56 06U8lClCSSCéPS Bete 1449 ACBL R5, #GBDSC_BLN, RO, LTOP ; Keep going if Limit not hit yet. 
OF 6—€ 00 €2 Oca 1451 BBSS #0, (SP), USE_GBD ; Br if second pass. | Sead 
ae. ¢ AC C1 b2e6 1936 ADDL GBHSL_GBO_START(AP), AP, RO ; Start at beginning this time. 
a Oac (C1 0555 145 ADDL GBHSL_GBD_NEXT(AP), AP, RS ; End with current next ptr. 
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#GBOSC_BLN, R5 ; Back up one - did it first pass. 
LTOP ; Branch into Loop. 


#4, SP ; Pop pass counter off stack. 

GBH$L_GBD_NEXT(AP), AP, RO; Get addr of this ‘victim’ 

GBDSB_CACRE_VAL(ROS ° ; Is it already zero? 

10 ; EQL then can’t age anymore. 

GBD$B_CACHE_VAL (RO) : Age him a unit. 

#GBDSC_BLN, GBHSL_GBD_NEXT(AP) ; Move on to next GBD next time. 

GBHSL_GBD_NEXT(AP), GBHSL_GBD_END(AP) ; Is this past GBD's? 
““LEQO it's still in range. 

GBHSL_GBD_START(AP), GBHS$L_GBD_NEXT(AP) ; Else reset to start. 

R4, RO ; Get addr of GBD to use. 

ERXIT ; EQL didn't find one. 


#*M<R2,R3,R4,R5> ; Restore registers. 


GBD to use 

von desired 

size of bucket 

previous GBD from search scan. 


; Remove this GBD from current position in queue. 
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; Init this GBD. 


ANEW SO OONAUE WN — © ODNAU EWN (OO OONOUS WIN O OONOuUs- 


NOW" WOOO 
wooorge Vin-oW 


VNoOFro cO—-rPr 


GBDS$L_FLINK EQ 0 

GBD$L_BL INK EQ 4 

(RO), RO, AP 3; Addr of successor 

(AP), RO ; Remove GBD from queue. 
<GBD$B_FLAGS + 1> EQ GBD$B_CACHE_VAL 
GBD$B_FLAGS (RO) ; Init flags, cache value. 
GBD$L_LOCK_ID(RO) : Is there a system lock out? 
5$ : Branch around this if not. 


#*M<RO,R1I> 
#1,a#RMS$GW_GBLBUFQUO =; Count this buffer back in. 
ixid = GBDSC_LOCK_ID(RO) ; Remove old buffer from cache. 
GBD$L_LOCK_ID(RO) 3; Clear syeten lock id from gbd. 
#1,GBDSL_VBNSEQNUM(RO) ; INVALIDATE buffer. 

1, GBDSC_VBN(RO) ; Fill in vbn of bucket. 
R2, GBDSW_NUMB(RO) ; Note size of bucket. 


GBD back into queue. 
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° R5 5 ee we select the previous GBD? 
: no. 

4(R5), R5 3; Get the previous one then. 

(RO), (R5) ; Insert GBD in queue. 

GET_GBPB 3; Fill in GBPB. 
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PSECT name Allocation PSECT No. Attributes 
«- 05. .« 00000900 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL a he NOEXE NORD eed NOVEC BYTE 
RMSRMSO 000005D4 ( 1492.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWR 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR 

(Lenin erernnmaent 

! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 00:00:00.07 OF: 0000.95 
Command processing 118 00:00:00.76 00:00:04.4 
Pass 1 480 00:00:19.66 00:00:49.10 
Symbol table sort 0 es Be 00:00:04.82 
Pass 2 275 00:00:05.03 00:00:14.64 
Symboi table output 22 Re SY 00:00:00.30 
Psect synopsis output 2 00:00:00.0 00:00:00.03 

0 00:00:00.00 00:00:00.00 

Assembler run totals 930 00:00:28.27 00:01:14.24 


The working set Limit was 2100 pages. 

108548 bytes (2135 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space ar tecates to hold 1735 non-local and 66 local symbols. 
1518 source Lines were read in Pass 1, "ain te object records in Pass 2. 

43 pages of virtual memory were used to define 42 macros. 
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Macro Library name Macros defined 
-$255$DUA28 : CRMS..OBJIRMS. “pt 1 22 
~$32 28DUAGB: CSYS.0B 1 


JJLIB.MLB;1 
$255$DUA28: ESS IBISTARLET. MLB; 2 15 
TOTALS (all Libraries) 38 


1938 GETS were required .o define 38 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOCACHE/OBJ=OBJ$:RMOCACHE MSRC$:RMOCACHE/UPDATE=(ENHS$:RMOCACHE) +EXECML$/L1IB+L1B$:RMS/LIB 
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